home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NB03
/
UNT
/
T-ARCSIN.UNT
< prev
next >
Wrap
Text File
|
1996-03-11
|
2KB
|
46 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ │ DATE: 1996-01-28 ╟─╖
│ │ FILE NAME T-ARCSIN.UNT ║ ╘════════════════─ ║ ║
│ │ LIBRARY DAS-NB03.PBL ║ ║ ║
│ ╘══════════════════════════╝ ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$if 1
$CODE SEG "DAS_NB03"
$EVENT OFF
$ERROR ALL OFF
$OPTIMIZE SPEED
$OPTION GOSUB OFF
$OPTION CNTLBREAK OFF
$OPTION SIGNED OFF
$DEBUG MAP OFF
$DEBUG PATH OFF
$DEBUG UNIT OFF
$COMPILE UNIT
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
' PURPOSE: compute the sin of an arc
' PARAMS: Angle# the angle of the arc
' RETURNS: what UC is what Uget
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
FUNCTION fArcSIN# ( BYVAL Angle# ) LOCAL PUBLIC
IF ABS(Angle#) <> 1 THEN
FUNCTION = ATN( Angle# / SQR( 1 - Angle# ^ 2 ) )
ELSE
FUNCTION = SGN(Angle#) * 2 * ATN(1)
END IF
END FUNCTION